home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / KEY.LSP < prev    next >
Text File  |  1992-03-14  |  10KB  |  252 lines
  1. ;                     *********** Patrick J. McKee **********
  2. ;                       ****Copyright 1992, Power Key tm****
  3. ;
  4. ;
  5. ;BEGIN DEFINITION OF KEY.LSP
  6. ;              THIS PROGRAM DEFINES SEVERAL KEYS AS AN ALTERNATIVE TO
  7. ;              SOME AUTOCAD COMMANDS.
  8. ;
  9. (defun C:A()(setvar"cmdecho"1)
  10. (menucmd"S=ARC")
  11. (setq oer *error* *error* err2)(command ".ARC"))
  12. (defun C:AR()(setvar"cmdecho"1)
  13. (setq oer *error* *error* err2)(command ".ARRAY""au"))
  14. (defun C:B()(setvar"cmdecho"1)
  15. (menucmd"S=BREAK")
  16. (setq oer *error* *error* err2)(command".BREAK" PAUSE "F"))
  17. (defun C:BL()(setvar"cmdecho"1)
  18. (menucmd"S=BLOCK")
  19. (setq oer *error* *error* err2)(command ".BLOCK"))
  20. (defun C:C()(setvar"cmdecho"1)
  21. (menucmd"S=COPY")
  22. (setq oer *error* *error* err2)(command ".COPY""AU"))
  23. (defun C:bp()(setvar"cmdecho"1)
  24. (load"bp"))
  25. (defun C:CF()(setvar"cmdecho"1)
  26. (setq oer *error* *error* err2)(command ".Chamfer"))
  27. (defun C:CG()(setvar"cmdecho"1)
  28. (setq oer *error* *error* err2)(command".CHANGE"))
  29. (defun C:CP()(setvar"cmdecho"1)
  30. (setq oer *error* *error* err2)(command".CHPROP"))
  31. (defun C:CW()(setvar"cmdecho"1)
  32. (load"cw"))
  33. (defun C:EE()(setvar"cmdecho"1)
  34. (load"EE"))
  35. (defun C:CH()(setvar"cmdecho"1)
  36. (SETQ SS1(SSGET))
  37. (SETQ NEWL(GETSTRING "\nNew Drawing Layer : "))
  38. (setq oer *error* *error* err2)(command ".CHANGE" SS1 "" "L" NEWL))
  39. (defun c:col()(setvar"cmdecho"1)
  40. (load"col"))
  41. (defun C:CR()(setvar"cmdecho"1)
  42. (menucmd"S=CIRCLE")
  43. (setq oer *error* *error* err2)(command".CIRCLE"))
  44. (defun C:CR2()(setvar"cmdecho"1)
  45. (setq oer *error* *error* err2)(command".CIRCLE""2P"))
  46. (defun c:tc()(setvar"cmdecho"1)
  47. (load"tc"))
  48. (defun C:D()(setvar"cmdecho"1)
  49. (setq oer *error* *error* err2)(command ".DIST"))
  50. (defun c:DC()(setvar"cmdecho"1)
  51. (setq oer *error* *error* err2)(command".DTEXT""c"))
  52. (defun C:vd()(setvar"cmdecho"1)
  53. (setq oer *error* *error* err2)(command".dim""vert"))
  54. (defun C:hd()(setvar"cmdecho"1)
  55. (setq oer *error* *error* err2)(command".dim" "horiz"))
  56. (defun C:DD()(setvar"cmdecho"1)
  57. (setq oer *error* *error* err2)(command".DDATTE"))
  58. (defun C:DE()(setvar"cmdecho"1)
  59. (setq oer *error* *error* err2)(command".DDEMODES"))
  60. (defun c:du()(setvar"cmdecho"1)
  61. (load"duct"))
  62. (defun c:et()(setvar"cmdecho"1)
  63. (load"et"))
  64. (defun C:ML()(setvar"cmdecho"1)
  65. (setq oer *error* *error* err2)(command".DDLMODES"))
  66. (defun C:td()(setvar"cmdecho"1)
  67. (menucmd"S=TEXT")
  68. (setq oer *error* *error* err2)(command".DTEXT"))
  69. (defun C:E()(setvar"cmdecho"1)
  70. (menucmd"S=ERASE")
  71. (setq oer *error* *error* err2)(command ".ERASE""AU"))
  72. (defun C:EL()(setvar"cmdecho"1)
  73. (setq oer *error* *error* err2)(command ".ERASE""L"""))
  74. (defun C:EX()(setvar"cmdecho"1)
  75. (menucmd"S=EXTEND")
  76. (setq oer *error* *error* err2)(command ".EXTEND""au"))
  77. (defun C:FR()(setvar"cmdecho"1)
  78. (setq oer *error* *error* err2)(command".FILLET""R" "0" "FILLET"))
  79. (defun C:F()(setvar"cmdecho"1)
  80. (setq oer *error* *error* err2)(command".FILLET"))
  81. (defun C:GN()(setvar"cmdecho"1)
  82. (setq oer *error* *error* err2)(command".POLYGON"))
  83. (defun C:Gf()(setvar"cmdecho"1)
  84. (setq oer *error* *error* err2)(load"gf"))
  85. (defun c:grd()(setvar"cmdecho"1)
  86. (load"grd"))
  87. (defun C:H()(setvar"cmdecho"1)
  88. (menucmd"S=HATCH")
  89. (setq oer *error* *error* err2)(command".HATCH"))
  90. (defun C:I()(setvar"cmdecho"1)
  91. (menucmd"S=INSERT")
  92. (setq oer *error* *error* err2)(command".INSERT"))
  93. (defun C:ib()(setvar"cmdecho"1)
  94. (setq pt(cadr(entsel"\nSelect Block:")))
  95. (setq e1(ssget pt)) 
  96. (setq e2 (entget (ssname e1 0)))
  97. (setq blname (cdr(assoc 2 e2)))
  98. (setq oer *error* *error* err2)(command ".insert" blname))
  99. (defun c:ky()(setvar"cmdecho"1)
  100. (load"ky"))
  101. (defun c:ld()(setvar"cmdecho"1)
  102. (load"ld"))
  103. (defun C:L()(setvar"cmdecho"1)
  104. (menucmd"S=LINE")
  105. (setq oer *error* *error* err2)(command".LINE"))
  106. (defun C:LS()(setvar"cmdecho"1)
  107. (menucmd"S=LIST")
  108. (setq oer *error* *error* err2)(command".LIST"))
  109. (defun mpl()
  110. (setq pt1(getpoint"\nPick First Point: "))
  111. (setq pt2(getpoint"\nPick Second Point: "))
  112. (polar pt1(angle pt1 pt2)(/(distance pt1 pt2)2)))
  113. (defun c:lmp()
  114. (setq pt1(getpoint"\nPick First Point:"))
  115. (setq pt2(getpoint"\nPick Second Point:"))
  116. (command"line"(polar pt1(angle pt1 pt2)(/(distance pt1 pt2)2))))
  117. (defun C:M()(setvar"cmdecho"1)
  118. (menucmd"S=MOVE")
  119. (setq oer *error* *error* err2)(command".MOVE""AU"))
  120. (defun C:MM()(setvar"cmdecho"1)
  121. (menucmd"S=MIRROR")
  122. (setq oer *error* *error* err2)(command".MIRROR""AU"))
  123. (defun C:MTL()(setvar"cmdecho"1)
  124. (setq oer *error* *error* err2)(LOAD"MTL"))
  125. (defun C:O()(setvar"cmdecho"1)
  126. (menucmd"S=OFFSET")
  127. (setq OD(GETSTRING "\nOFFSET DISTANCE: "))
  128. (setq oer *error* *error* err2)(command".OFFSET" OD))
  129. (defun c:CNS()
  130. (setq oer *error* *error* err2)(load"CNS"))
  131. (defun c:DNS()
  132. (setq oer *error* *error* err2)(load"DNS"))
  133. (defun C:OO()(setvar"cmdecho"1)
  134. (setq oer *error* *error* err2)(command".OSNAP""NONE"))
  135. (defun c:op()(setvar"cmdecho"1)
  136. (load"op"))
  137. (defun c:oh()(setvar"cmdecho"1)
  138. (load"oh"))
  139. (defun C:PL()(setvar"cmdecho"1)
  140. (menucmd"S=PLINE")
  141. (setq oer *error* *error* err2)(command".PLINE"))
  142. (defun C:P()(setvar"cmdecho"1)
  143. (setq oer *error* *error* err2)(command".PAN"))
  144. (defun C:PE()(setvar"cmdecho"1)
  145. (menucmd"S=PO")
  146. (setq oer *error* *error* err2)(command".PEDIT"))
  147. (defun C:Q()(setvar"cmdecho"1)
  148. (setq oer *error* *error* err2)(command".QUIT"))
  149. (defun C:R()(setvar"cmdecho"1)
  150. (menucmd"S=ROTATE")
  151. (setq oer *error* *error* err2)(command".ROTATE""AU"))
  152. (defun c:rc (/ pt1 pt2 pt3 pt4) (graphscr)
  153. (setq pt1 (getpoint "\nPICK First Corner on Rectangle  "))
  154. (setq pt3 (getcorner pt1 "\nPICK Opposite Corner of Rectangle or enter size: "))
  155. (setq pt2 (list (car pt1) (cadr pt3)))
  156. (setq pt4 (list (car pt3) (cadr pt1)))
  157. (setq oer *error* *error* err2)(command ".Pline" pt1 "w" "0" "" pt2 pt3 pt4 "c"))
  158. (defun C:RD()(setvar"cmdecho"1)
  159. (setq oer *error* *error* err2)(command".REDRAW"))
  160. (defun C:rw()(setvar"cmdecho"1)
  161. (load"rw"))
  162. (defun C:ST()(setvar"cmdecho"1)
  163. (setq oer *error* *error* err2)(command ".STRETCH""C"))
  164. (defun C:SA()(setvar"cmdecho"1)
  165. (setq oer *error* *error* err2)(command ".SAVE"))
  166. (defun C:SE()(setvar"cmdecho"1)
  167. (menucmd"S=LAYER")
  168. (setq oer *error* *error* err2)(command ".LAYER""SET" pause ""))
  169. (defun C:SC()(setvar"cmdecho"1)
  170. (menucmd"S=SCALE")
  171. (setq oer *error* *error* err2)(command ".SCALE""AU"))
  172. (defun c:ss()(setvar"cmdecho"1)
  173. (setq oer *error* *error* err2)(command".STATUS"))
  174. (defun C:T()(setvar"cmdecho"1)
  175. (menucmd"S=TRIM")
  176. (setq oer *error* *error* err2)(command ".TRIM""au"))
  177. (defun C:TE()(setvar"cmdecho"1)
  178. (setq oer *error* *error* err2)(command ".TEXT"))
  179. (defun C:UN()(setvar"cmdecho"1)
  180. (setq oer *error* *error* err2)(command".UNITS"))
  181. (defun C:V()(setvar"cmdecho"1)
  182. (setq oer *error* *error* err2)(command".DIVIDE"))
  183. (defun c:wc()(setvar"cmdecho"1)
  184. (load"wc"))
  185. (defun c:wl()(setvar"cmdecho"1)
  186. (load"wl"))
  187. (defun C:X()(setvar"cmdecho"1)
  188. (setq oer *error* *error* err2)(command".EXPLODE"))
  189. (defun C:ZA()(setvar"cmdecho"1)
  190. (setq oer *error* *error* err2)(command".REGENAUTO""ON")
  191. (setq oer *error* *error* err2)(command".ZOOM""A""SAVE"""))
  192. (defun C:ZC()(setvar"cmdecho"1)
  193. (SETQ CP1(GETPOINT "\nCenter point: "))
  194. (setq oer *error* *error* err2)(command".ZOOM""C" CP1 ""))
  195. (defun C:ZD()(setvar"cmdecho"1)
  196. (setq oer *error* *error* err2)(command".ZOOM""D"))
  197. (defun C:ZP()(setvar"cmdecho"1)
  198. (setq oer *error* *error* err2)(command".ZOOM""P"))
  199. (defun C:ZW()(setvar"cmdecho"1)
  200. (setq oer *error* *error* err2)(command".ZOOM""W"))
  201. (defun C:Z5()(setvar"cmdecho"1)
  202. (setq oer *error* *error* err2)(command".ZOOM"".5X"))
  203. (defun C:Z7()(setvar"cmdecho"1)
  204. (setq oer *error* *error* err2)(command".ZOOM"".7X"))
  205. (defun C:Z9()(setvar"cmdecho"1)
  206. (setq oer *error* *error* err2)(command".ZOOM"".9X"))
  207. (defun C:W()(setvar"cmdecho"1)
  208. (menucmd"S=WBLOCK")
  209. (setq oer *error* *error* err2)(command ".WBLOCK"))
  210. (defun C:1()(setvar"cmdecho"1)
  211. (setq oer *error* *error* err2)(command ".OFFSET""1"))
  212. (defun C:2()(setvar"cmdecho"1)
  213. (setq oer *error* *error* err2)(command ".OFFSET""2"))
  214. (defun C:225()(setvar"cmdecho"1)
  215. (setq oer *error* *error* err2)(command ".OFFSET""2.25"))
  216. (defun C:4()(setvar"cmdecho"1)
  217. (setq oer *error* *error* err2)(command ".OFFSET""4"))
  218. (defun C:45()(setvar"cmdecho"1)
  219. (setq oer *error* *error* err2)(command ".OFFSET""4.5"))
  220. (defun C:6()(setvar"cmdecho"1)
  221. (setq oer *error* *error* err2)(command ".OFFSET""6"))
  222. (defun C:8()(setvar"cmdecho"1)
  223. (setq oer *error* *error* err2)(command ".OFFSET""8"))
  224. (defun C:10()(setvar"cmdecho"1)
  225. (setq oer *error* *error* err2)(command ".OFFSET""10"))
  226. (defun C:12()(setvar"cmdecho"1)
  227. (setq oer *error* *error* err2)(command ".OFFSET""12"))
  228. (defun C:16()(setvar"cmdecho"1)
  229. (setq oer *error* *error* err2)(command ".OFFSET""16"))
  230. (defun C:18()(setvar"cmdecho"1)
  231. (setq oer *error* *error* err2)(command ".OFFSET""18"))
  232. (defun C:24()(setvar"cmdecho"1)
  233. (setq oer *error* *error* err2)(command ".OFFSET""24"))
  234. (defun C:30()(setvar"cmdecho"1)
  235. (setq oer *error* *error* err2)(command ".OFFSET""30"))
  236. (defun C:36()(setvar"cmdecho"1)
  237. (setq oer *error* *error* err2)(command ".OFFSET""36"))
  238. (defun C:48()(setvar"cmdecho"1)
  239. (setq oer *error* *error* err2)(command ".OFFSET""48"))
  240. ;
  241. ; EOF  KEY.LSP
  242. ;
  243. (princ ".........loaded")
  244. (princ "\nPlease standby........Loading zoom utilities.")
  245. (load"zq")
  246. (load"lp")
  247. (princ "\n")
  248. (princ "\n                 ******* Copyright 1992, Patrick J. McKee ******")
  249. (princ "\n                 ********** Version 1.01, Power Key tm *********")
  250. (princ "\n")
  251. (princ "\nPower Key...........")
  252. (princ)